1 GOTO 100 2 POKE 53296,255:PRINT"[147][149]" 3 FOR X=1 TO 17:PRINT TAB(4);" [146]";TAB(35);" [146]":NEXT 4 PRINT"[153] [146]" 5 PRINT"";:FORX=1TO29:PRINT"[192]";:NEXT 6 PRINT"";:FORX=1 TO 17:PRINT"[215]";:NEXT:PRINT 7 FORX=1TO8:PRINT"[215] [215]":NEXT 8 PRINT"";:FORX=1 TO 17:PRINT"[215]";:NEXT:PRINT 10 PRINT"[158]DO YOU WANT INSTRUCTIONS?" 12 PRINT"[150]BY[157][157][157][157][157][157][157]JOEL EPSTEIN" 20 A=1065:B=129:FOR X=1 TO 4:FOR Y=1 TO 8 25 POKE A,B:B=B+1:A=A+1:NEXT:B=B+24:A=A+32:NEXT 30 A=1096:B=129:FOR X=1 TO 4:FOR Y=1 TO 8 35 POKE A,B:B=B+1:A=A+1:NEXT:B=B+24:A=A+32:NEXT 40 FOR X=55296TO 55495:POKEX,5:NEXT 99 SYS 928:RETURN 100 PRINT"[147][144][142]":POKE12288,0:POKE12289,0 110 IF A=0THEN SYS65418:POKE808,234:POKE650,128:CLR 120 POKE 53281,0:POKE 53280,0 130 IF A=0 THEN A=1:LOAD"SS",8,1 135 POKE 53265,PEEK(53265)AND239:GOSUB2:PRINT"[147]":POKE53265,PEEK(53265)OR16 145 GOSUB 210 150 POKE43,1:POKE44,16:POKE4096,0 160 LOAD"WALLY",8 190 NEW 200 REM 210 FOR I=249 TO 255 220 IF I=252 THEN I=253 230 FOR N=0 TO 62 240 READ Q:POKE (I*64+N),Q:NEXT 250 NEXT 260 POKE 53296,0 270 RETURN 450 DATA 0,0,0 460 DATA 0,0,0 470 DATA 0,0,0 480 DATA 0,0,0 490 DATA 0,0,64 500 DATA 0,0,224 510 DATA 0,1,252 520 DATA 1,241,254 530 DATA 7,252,246 540 DATA 15,255,254 550 DATA 31,255,254 560 DATA 63,255,254 570 DATA 127,255,252 580 DATA 191,255,228 590 DATA 159,255,196 600 DATA 159,255,196 610 DATA 31,255,133 620 DATA 27,253,135 630 DATA 25,153,128 640 DATA 25,153,128 650 DATA 25,153,128 660 DATA 0,0,0 670 DATA 0,0,0 680 DATA 0,0,0 690 DATA 0,0,0 700 DATA 0,0,64 710 DATA 0,0,224 720 DATA 0,1,252 730 DATA 1,241,254 740 DATA 7,252,246 750 DATA 15,255,254 760 DATA 31,255,254 770 DATA 63,255,254 780 DATA 127,255,252 790 DATA 191,255,228 800 DATA 159,255,196 810 DATA 95,255,196 820 DATA 31,255,132 830 DATA 27,253,134 840 DATA 25,153,129 850 DATA 13,141,129 860 DATA 13,141,128 870 DATA 0,0,0 880 DATA 0,0,0 890 DATA 0,0,0 900 DATA 0,0,0 910 DATA 0,0,64 920 DATA 0,0,224 930 DATA 0,1,252 940 DATA 1,241,254 950 DATA 7,252,246 960 DATA 15,255,254 970 DATA 31,255,254 980 DATA 63,255,254 990 DATA 127,255,252 1000 DATA 191,255,228 1010 DATA 159,255,196 1020 DATA 159,255,196 1030 DATA 31,255,132 1040 DATA 27,253,132 1050 DATA 25,153,132 1060 DATA 24,216,196 1070 DATA 24,216,196 1080 DATA 0,0,0 1090 DATA 0,0,0 1100 DATA 0,0,0 1110 DATA 0,0,0 1120 DATA 2,0,0 1130 DATA 7,0,0 1140 DATA 63,128,0 1150 DATA 127,143,128 1160 DATA 111,63,224 1170 DATA 127,255,240 1180 DATA 127,255,248 1190 DATA 127,255,252 1200 DATA 63,255,254 1210 DATA 39,255,253 1220 DATA 35,255,249 1230 DATA 35,255,249 1240 DATA 161,255,248 1250 DATA 225,191,216 1260 DATA 1,153,152 1270 DATA 1,153,152 1280 DATA 1,153,152 1290 DATA 0,0,0 1300 DATA 0,0,0 1310 DATA 0,0,0 1320 DATA 0,0,0 1330 DATA 2,0,0 1340 DATA 7,0,0 1350 DATA 63,128,0 1360 DATA 127,143,128 1370 DATA 111,63,224 1380 DATA 127,255,240 1390 DATA 127,255,248 1400 DATA 127,255,252 1410 DATA 63,255,254 1420 DATA 39,255,253 1430 DATA 35,255,249 1440 DATA 35,255,250 1450 DATA 33,255,248 1460 DATA 97,191,216 1470 DATA 129,153,152 1480 DATA 129,177,176 1490 DATA 129,177,176 1500 DATA 0,0,0 1510 DATA 0,0,0 1520 DATA 0,0,0 1530 DATA 0,0,0 1540 DATA 2,0,0 1550 DATA 7,0,0 1560 DATA 63,128,0 1570 DATA 127,143,128 1580 DATA 111,63,224 1590 DATA 127,255,240 1600 DATA 127,255,248 1610 DATA 127,255,252 1620 DATA 63,255,254 1630 DATA 39,255,253 1640 DATA 35,255,249 1650 DATA 35,255,249 1660 DATA 33,255,248 1670 DATA 33,191,216 1680 DATA 33,153,152 1690 DATA 35,27,24 1700 DATA 35,27,24